C 10 


RRR eR Re ee 
ee ee 
Ck ak ek ae ce ee oe ee a oe wee ane aed oe coe a rg 
ieee 


aaa aaa 
aaa aaa 
aaa aaa 
aaa aaa 
aaa aaa 
aaa aaa 
aaa aaa 
aaa acoa 
aaa aaa 
SoGO00OGOO00GO0G0G0G0R008aR 
So0O0O0GOGoOOG000000000a8Ra 
SOoGHKHGCHHGHAaHhaaeSaSaaaoaaa 
wud ada 
wutud Lk ee ha 
a Ld th ed 
dd A hd bad Ra dd ol 
ed bad Aad tu had 
bd a kd Lh Ah ed 
tks kd rezeeneey Ve TeCnee) 
ad Ld Ad kd Ad 
a Ld ad ed hs a 
aeeeered a as a wu 
ad kd ted bd Ld tad a bad 
kad LOS LD tad Ld Abs 


ee heed enone hoc seeLecsuelucivolveleulveseelvelvenvenveneey 
Se deed eke edn oho heeheesveLlehveleeseelvesvesvesuureulvulve) 
Shed eee heesueLvelue. UlveleelvelvsseeLlvelvulvesewreel 


B11 


eeF [LE ee] Dee TI SAVE 


ww uu 
wus wus 
uous wow Ud 
wow uw wus 
uw ww wu 
wow ww preres) 


pee aee 
Wd a sd a as 
sd ad a 


>>>>>>>>>> 


okt nd nt at Od Od Od dd a Od 
ee an ne a og nw nd Om Oo ON Od Od ne 
aes 
— oe 


a rel el creel cel ed ell eek oe 
el cel el cel cel ell ce oe el 


LLLLLLLLLL 
LLLLLLLLLL 


EDTSTISAVE = buffer a character for the journal 16-5 p= 300-1 38% 91:36:32 Bliss-32 V 


VAX-11 
14-Sep-1 DISKSVMS 


RTITL scorer ese 


E - buffer a character for the journal file’ 
MODULE EDTST ' Buff 


( Buffer 3 pores rer for the journal file 
DENT = ‘Vv04-000' *eSte: TISAVE.BLI Edit: JBS1004 
= 
BEGIN 
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i® DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
:# SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


& 

* 

1 1 '* DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. * 
; ; :* ALL RIGHTS RESERVED. * 
'e e 

1 1 'e re fe ucche fs FURNISHED UNDER A LICENSE AND MAY BE USED AND sorter * 
1 1 '® ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
1 1 'e LUSION OF THe ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
1 01 '® COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
1 Bat '@ OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
: 00} :* TRANSFERRED. * 
'@ 

§ 00 '® THE eo ie IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
00 '® AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 

00 '® CORPORATION. * 

00 'e * 

© 

& 

* 
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i FACILITY: EDT == The DEC Standard Editor 
i ABSTRACT: 
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Buffer a character for the journal file. 
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! 
1 
! 
! 
; 09 ENVIRONMENT: Runs at any access mode - AST reentrant 
re Oba AUTHOR: Bob Kushlis, CREATION DATE: June 9, 1979 
4@ 004 MODIFIED BY: 
44 094 i 1-001 = Original. DJS 18-FEB-1981. This module was created by 
45 : eubrocting routine EDT$$T1_B 44 from module TINPUT. 
“6 : 7 “008 - Regularize headers. JBS~11-Mar-198 
4 ! 4 - Change call to EDTS$TI BF LUSHIOUE | - JBS 18-Jun-1981 
$8 04 it 1-004 - Improve the appearance of the listing. JBS 17-Jun-1983 
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EDTSTISAVE DISTISAVE = buffer a character for th l IB-5e -1 7 Ax-11 iss- 4.0- 
bc s008 clarations OF the Journal pore lees segs theta ese she Srisave.euts1 «2s 


: g } RSBTTL ‘Declarations’ 

; 4 | TABLE OF CONTENTS: 

; se 

; REQUIRE "EDTSRC:TRAROUNAM'; 
: 1 FORWARD ROUTINE 

3 $9 3$ 1 EDTSS$STI_BUFCH : NOVALUE; 
fe ae 

; e§ INCLUDE FILES: 

: 65 lg 

; 66 REQUIRE "EDTSRC:EDTREQ'; 
: 68 639 1! 

; p 1 | MACROS: 

; FF one 

cs S : § 1 i opie: 

me . 644 1 | EQUATED SYMBOLS: 

: Oe ae 

: gee 1 i _— 

.. 1 § OWN STORAGE: 

5 78 : 1! 

: 79 650 1 NONE 

3 80 Os 

; 81 : i EXTERNAL REFERENCES: 

: 8 se 3 3 In the routine 
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TISAVE = buffer a character for the journal ib-fe -1984 01:56:37 VAX-11 Bliss-32 V4.0-74 P 
$1) BUF CH - buffer a character for the jou 1 =308 1382 93 :36:3 DLEKSVMGMASTERSCEDT SRCSTISAVE.BLI:1 — 


ZSBTTL ‘EDTSSTI_BUFCH = buffer a character for the journal file’ 


GLOBAL ROUTINE EDTSSTI_BUFCH ( ! Buffer a character for the journal file 
) : NOVALUE = ! Character to be buffered 


cu Bn 


5 


(3 


'e¢ 


i FUNCTIONAL DESCRIPTION: 


Oo 
wr 


This routine saves a character for the journal file. If the journal 
output buffer is full, then it is written out, then the character 
is placed in the buffer. 

FORMAL PARAMETERS: 


BUF The character to be saved. 


LSSSSLES 


IF (.EDTS$G_TIN_OBUFPOS EQL 254) THEN EDTSSTI_FLUSHJOUFI (2C'T"); 


EDTSST_TIN_OBUF C.EDTSS$G_TIN_OBUFPOS) = .BUF; 
Ah a dae smanarhe = .EDT$$G_TIN_OBUFPOS + 1; 
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' 
' 
; 
' 
' 
i 
1 i 
1 i 
108 : { IMPLICIT INPUTS: 
104 i i EDT$$T_TIN_OBUF 
5 EDT$$G_TIN-OBUF POS 
109 IMPLICIT OUTPUTS: 
109 $79 EDT$$G_TIN_OBUF POS 
111 581 i ROUTINE VALUE: 
11 s. i 
1 ; i NONE 
114 ; i 
115 685 i SIDE EFFECTS: 
119 8 i May write a record on the journal file. 
i By 
120 90 1 
1 91 BEGIN 
1 5 $38 EXTERNAL ROUTINE 
é 34 EDTS$$TI_FLUSHJOUFI : NOVALUE; 
1 $ % EXTERNAL 
1 9 EDT$$T_TIN_OBUF : VECTOR (256, BYTE], ! The journal output buffer 
: 3 38 EDT$$G_TIN_OBUFPOS; ! Position in journal output buffer 
1 
i 1 
Hi 


sans 
—_ 


' of routine EDTS$TI_BUFCH 


-TITLE EDTSTISAVE EDTSTISAVE - buffer a character for 
the journal 
-IDENT \vV04-000\ 


.EXTRN EDTSSTI_FLUSHJOUF I 


Tw 


ae 


3; Routine Size: 


34 STISAVE = buffer a char 
DIS$TI 


44 bytes, Routine Base: 


0705 
0706 


_BUFCH = buffer a 


52 
QOOOOOFE 8F 

7E 
000000006 2 
0000000060040 


1 
1 !<BLF/PAGE> 


acter for 
character for 


000000006 09 


54 F 
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au 
i 


-EDTSCODE + 


at 

gurnal Jo-beon1a6e ON:St:37 yA: 
LEXTRN EDISST_TIN. 

TEXTRN  EDTSSG~TINZOBUFPOS 


xf 0-7 4 
R: ro ) 
OBUF 


-PSECT _EDTSCODE,NOWRT, SHR, PIC,2 


04 00 .ENTRY EDTSSTI BUF CH. Save R : 0657 
‘ 00 MOVAB EDT$$G_TIN_OBUFPOS, R ; 
D1 000 CMPL EDTSSG_TIN- OBUFPOS. #256 + 0700 
12 9019 BNEQ : 
9A 0001 MOVZBL #84, -(SP) ; 
FB 00016 CALLS a ego test! FLUSHJOUF | ; 
p 001D 1$ MOVL G_TIN_OBUFPOS, + 0702 
9020 MOVB EBT$$T_TIN OBUF ROI ; 
NCL D N_OBUF POS ; 070 
D6 00029 INC e Urged TIN_6B PPOs 703 
04 00028 RET + 0704 
0000 
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Library Statistics 


quasnene Symbols -------- Pages Processing 
File Total Loaded Percent Mapped Time 


-$255$DUA28: - SRCJEDT.L32;1 377 0 i] 40 00:00.2 
~$255$DUA28: Lepr -SRCJPSECTS.L32;1 2 1 50 ? 00:00.1 
; COMMAND QUALIFIERS 
: abatattiih cas a cana 2a aA anaes MSRC$:TISAVE .BLI/UPDATE=(ENH$: TISAVE) 


Size: ode + 0 data bytes 
Run Time: :09. 
t49)2 Time: 
nes/CPU Min: oe8 
tonnes tpo-nie: 138 
A Used: 54 pages 
Compilation Complete 


"1 
$Ou-000 EDISSTL BURCH © butters charactor fon Geen Tes east Oke P3:Sea, Pa Aleta ee sees risave.our:1 2% 
; 133 0708 ] ex ! of module EDTSTISAVE 
i 4a 709 0 ELUDOM 
PSECT SUMMARY 
; Name Bytes Attributes 
: _EDTSCODE 44 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 
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